home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 2 / The Arsenal Files 2 (Arsenal Computer).ISO / wildcat / arealist.wcc < prev    next >
Text File  |  1994-09-02  |  804b  |  36 lines
  1. rem very quick and dirty file area list
  2. rem dumps currently defined file areas to a file for reference
  3.  
  4. rem brad shipp, brad.shipp@chowda.com, 1:323/120@fidonet.org
  5.  
  6. dim thisArea as fileAreaRecord, count as integer
  7. dim today as date
  8.  
  9. currentDate(today)
  10.  
  11. open "filearea.lst" for output as #1
  12. open "filepath.lst" for output as #2
  13.  
  14. print #1, "File Area Listing from ";makewild.bbsName
  15. print #1, "As of ";formatDate(today,"Mm/dd/yy")
  16. print #1, "----------------------------------------------------"
  17.  
  18. print "Working";
  19. for count = 1 to makewild.MaxFileAreas
  20.  
  21.   getFileArea(thisArea,count)
  22.  
  23.   if len(trim(thisArea.name))>0 then
  24.     print ".";
  25.     print #1,count;"-  ";thisArea.name
  26.     print #2,"Request Path ";thisArea.path
  27.   end if
  28.  
  29. next
  30.  
  31. print "Done!"
  32.  
  33. close #1
  34. close #2
  35.  
  36.